home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Helm d4.adf / BabyPaint (.txt) < prev    next >
Helm Multimedia Book  |  1993-07-14  |  31KB  |  415 lines

  1.     BabyPaint
  2.     11-Nov-92
  3. on BookOpen
  4. begin
  5.   set tool to 0
  6.   click on object id 1
  7.   click on object id 19
  8.   click on object id 41
  9.   put 1 into object id 2
  10.   resetpaint
  11. on BookClose
  12. begin
  13.   set tool to 0
  14. New...
  15. Open...
  16. Make Copy...
  17. Streamline...
  18. Print...
  19.     Report...
  20. Preferences...
  21.     Workbench
  22. Help...
  23. About...
  24. Quit...
  25. Paste
  26. Clear
  27. Select All
  28. Cut Page
  29.     Copy Page
  30. Colors
  31. Load...
  32. Save...
  33. Restore Colors
  34. Default Colors
  35. Brush Colors
  36. Image Colors
  37. Cycle
  38. Grid...
  39. Stop Sound
  40. Show All
  41.     Edit Form
  42. Share
  43.     Next Page
  44. Previous Page
  45. First Page
  46.     Last Page
  47. Backward
  48. Forward
  49.     Last Book
  50.     Browse...
  51. Autobrowse...
  52.     Bookshelf
  53. New Page
  54. Delete Page
  55. New Form
  56. Load Form...
  57. Save Form...
  58. Image
  59. Load...
  60. Save...
  61. Capture...
  62.     Clipboard
  63. Paste
  64. Spare
  65. Swap Frames
  66. Copy to Spare
  67. Merge in Front
  68. Merge in Back
  69. Delete Spare
  70. Frame
  71. Previous
  72. Delete
  73. Copy to All
  74. Color
  75. Remap
  76. Transparency
  77. Paper <-> Pen
  78. Paper ->  Pen
  79. Count
  80. Vertical
  81. Horizontal
  82. Info...
  83. Brush
  84. Load...
  85. Save...
  86. Restore
  87.     Clipboard
  88. Paste
  89. Color
  90. Remap
  91. Transparency
  92. Paper <-> Pen
  93. Paper ->  Pen
  94. Center
  95. Corner
  96.     Any Point
  97. Any Size
  98. Halve
  99. Double
  100. Halve Width
  101. Halve Height
  102. Double Width
  103. Double Height
  104. To PAL
  105. To NTSC
  106. Vertical
  107. Horizontal
  108. Shear
  109. Vertical
  110. Horizontal
  111. Rotate
  112.     Any Angle
  113. Paint
  114. Matte
  115. Color
  116. Replace
  117. Smear
  118. Dissolve
  119. Spare
  120. Cycle
  121. Cycle 2
  122. Gradient
  123. Gradient 2
  124. Smudge
  125. Chaos
  126. Count
  127. Custom
  128. Dither
  129. Edges
  130. Object
  131. Load...
  132. Save...
  133. Bring to Front
  134. Send to Back
  135. Bring Closer
  136. Send Farther
  137. Group
  138. Ungroup
  139. Duplicate...
  140. Align...
  141. Info...
  142. Actions...
  143.     Script...
  144. Load...
  145. Save...
  146. Plain
  147.     Underline
  148. Italic
  149. Shadow
  150. Font...
  151. Spacing...
  152.     Hypertext
  153. Actions...
  154.     Script...
  155. Tools
  156. Coordinates
  157.     Title Bar
  158. Palette
  159. Colors
  160. Patterns
  161. Paint Tools
  162. Paint Types
  163.     Histogram
  164.     Magnifier
  165. Messages
  166. Draw Tools
  167. Layers
  168. Pages
  169. Author
  170. Book...
  171. Form...
  172. Page...
  173. Display...
  174. Menus...
  175. Narrator...
  176. Hypertext...
  177. Resources...
  178.     Effect...
  179. Effect Area
  180. DDDUUUfffwww
  181. house.brush
  182. smile.brush
  183. topaz.fontGLOB
  184. ram:house.brush
  185. RAM:Test.book
  186. Shelf
  187. /on SelectUp
  188. begin
  189.   set the pencolor to me
  190. 6on SelectDown
  191. begin
  192.   set the tool to 4 'freehand
  193. 2on SelectDown
  194. begin
  195.   set the tool to 5 'line
  196. Aon SelectDown
  197. begin
  198.   set the tool to 32777 'solid rectangle
  199. 7on SelectDown
  200. begin
  201.   set the tool to 9 'rectangle
  202. @on SelectDown
  203. begin
  204.   set the tool to 32778 'filled ellipse
  205. 6on SelectDown
  206. begin
  207.   set the tool to 10 'ellipse
  208. 6on SelectDown
  209. begin
  210.   set the tool to 8 'airbrush
  211. 3on SelectDown
  212. begin
  213.   set the tool to 7 'flood
  214. aon SelectDown
  215. begin
  216.   set the polysides to 4
  217.   set the tool to 32779 'filled regular polygon
  218. aon SelectDown
  219. begin
  220.   set the polysides to 3
  221.   set the tool to 32779 'filled regular polygon
  222. #on SelectUp
  223. begin
  224.   undo paint
  225. $on SelectUp
  226. begin
  227.   clear paint
  228. Lon SelectDown
  229. begin
  230.   set the painttype to zero
  231.   put me into the brush
  232. Lon SelectDown
  233. begin
  234.   set the painttype to zero
  235.   put me into the brush
  236. Lon SelectDown
  237. begin
  238.   set the painttype to zero
  239.   put me into the brush
  240. Lon SelectDown
  241. begin
  242.   set the painttype to zero
  243.   put me into the brush
  244. Eon SelectDown
  245. begin
  246.   set painttype to 1
  247.   put me into the brush
  248. Eon SelectDown
  249. begin
  250.   set painttype to 0
  251.   put me into the brush
  252. Aon SelectDown
  253. begin
  254.   set painttype to 1
  255.   put me into brush
  256. Aon SelectDown
  257. begin
  258.   set painttype to 1
  259.   put me into brush
  260. Aon SelectDown
  261. begin
  262.   set painttype to 1
  263.   put me into brush
  264. Aon SelectDown
  265. begin
  266.   set painttype to 1
  267.   put me into brush
  268. on FormOpen
  269. begin
  270.     FormOpen
  271. DDDUUUfffwww
  272. on PageOpen
  273. begin
  274. JFORM
  275. 6ILBMBMHD
  276. DDDUUUfffwww
  277. TFORM
  278. @ILBMBMHD
  279. @@@PPP```ppp
  280. ILBMBMHD
  281. HFORM
  282. 4ILBMBMHD
  283. @@@PPP```ppp
  284. ILBMBMHD
  285. ILBMBMHD
  286. ppppCRNG
  287. ILBMBMHD
  288. ppppCRNG
  289. ILBMBMHD
  290. ppppCRNG
  291. ILBMBMHD
  292. ppppCRNG
  293. ILBMBMHD
  294. ppppCRNG
  295. ILBMBMHD
  296. ppppCRNG
  297. ILBMBMHD
  298. ppppCRNG
  299. *FORM
  300. ILBMBMHD
  301. 0FORM
  302. ILBMBMHD
  303. DDDUUUfffwww
  304. >FORM
  305. *ILBMBMHD
  306. DDDUUUfffwww
  307. DFORM
  308. 0ILBMBMHD
  309. DDDUUUfffwww
  310. XFORM
  311. DILBMBMHD
  312. DDDUUUfffwww
  313. `FORM
  314. LILBMBMHD
  315. DDDUUUfffwww
  316. xILBMBMHD
  317. xILBMBMHD
  318. xILBMBMHD
  319. xILBMBMHD
  320.  FORM
  321. ILBMBMHD
  322. DDDUUUfffwww
  323. &FORM
  324. ILBMBMHD
  325. JFORM
  326. 6ILBMBMHD
  327. on PageOpen
  328. begin
  329. Shelf
  330. /on SelectUp
  331. begin
  332.   set the pencolor to me
  333. 6on SelectDown
  334. begin
  335.   set the tool to 4 'freehand
  336. 2on SelectDown
  337. begin
  338.   set the tool to 5 'line
  339. Aon SelectDown
  340. begin
  341.   set the tool to 32777 'solid rectangle
  342. 7on SelectDown
  343. begin
  344.   set the tool to 9 'rectangle
  345. @on SelectDown
  346. begin
  347.   set the tool to 32778 'filled ellipse
  348. 6on SelectDown
  349. begin
  350.   set the tool to 10 'ellipse
  351. 6on SelectDown
  352. begin
  353.   set the tool to 8 'airbrush
  354. 3on SelectDown
  355. begin
  356.   set the tool to 7 'flood
  357. aon SelectDown
  358. begin
  359.   set the polysides to 4
  360.   set the tool to 32779 'filled regular polygon
  361. aon SelectDown
  362. begin
  363.   set the polysides to 3
  364.   set the tool to 32779 'filled regular polygon
  365. #on SelectUp
  366. begin
  367.   undo paint
  368. $on SelectUp
  369. begin
  370.   clear paint
  371. Lon SelectDown
  372. begin
  373.   set the painttype to zero
  374.   put me into the brush
  375. Lon SelectDown
  376. begin
  377.   set the painttype to zero
  378.   put me into the brush
  379. Lon SelectDown
  380. begin
  381.   set the painttype to zero
  382.   put me into the brush
  383. Lon SelectDown
  384. begin
  385.   set the painttype to zero
  386.   put me into the brush
  387. Eon SelectDown
  388. begin
  389.   set painttype to 1
  390.   put me into the brush
  391. Eon SelectDown
  392. begin
  393.   set painttype to 0
  394.   put me into the brush
  395. Aon SelectDown
  396. begin
  397.   set painttype to 1
  398.   put me into brush
  399. Aon SelectDown
  400. begin
  401.   set painttype to 1
  402.   put me into brush
  403. Aon SelectDown
  404. begin
  405.   set painttype to 1
  406.   put me into brush
  407. Aon SelectDown
  408. begin
  409.   set painttype to 1
  410.   put me into brush
  411. on FormOpen
  412. begin
  413.     FormOpen
  414. DDDUUUfffwww
  415.